00100	BEGIN
00200		REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
00300		REQUIRE "DPYIII[SYS,BGB]" SOURCE_FILE;
00310		SAFE INTEGER ARRAY DPYBUF[0:999];
00320	
00400		INTEGER SIZE;
00500		OPEN(1,"DSK",8,3,0,0,0,0);
00600		LOOKUP(1,"X.CRE",0);
00700		SIZE ← WORDIN(1);
00800	BEGIN
00900		SAFE INTEGER ARRAY NODES[0:SIZE];
01000		ARRYIN(1,NODES[1],SIZE-1);RELEASE(1);
01200		OUTSTR("EOF");INCHRW;
01210	
01400	END;
01500	END;